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Disclaimer 



Although this program was tested by its author prior to submission, 
no warranty, express or implied, is made by the author, 1620 USERS 
Group, or IBM as to the accuracy and functioning of the program and 
related program material and no responsibility is assumed by the 
author, 1620 USERS Group, or IBM in connection therewith. 
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1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 



Program No. Date 

Program Name: ■ 



1. Does the abstract adequately describe what the program is and 

what it does? Yes No_ 

Comment 

2. Does the program do what the abstract says ? Yes No_ 

Comment 

3. Is the Description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient 

detail? Yes No_ 

Comment . \ __ 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently 

understandable? Yes No_ 

Comment _ 

5. Does the source program compile satisfactorily (if applicable)? Yes No_ 

Comment 

6. Does the object program run satisfactorily? Yes No_ 

Comment 

7. Number of test cases run __ . 



Are any restrictions as to data, size, range, etc. covered 

adequately in description? Yes No_ 

Comment 

8. Does the Program meet the minimal standards of the 1620 Users 

Group? Yes No_ 

Comment 

9. Please list any suggestions to improve the usefulness of the 
program. These will be passed on to the author for his consideration. 
Comment 



Please return to: Your Name _ 

Mr. Robert J. Robinson (PREP) Company " 
Marquette University 

Computing Center Address 
1515 W. Wisconsin Avenue 

Milwaukee 3, Wisconsin User Group 

Code 
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STEVENS INSTITUTE OF TECHNOLOGY 
DIGITAL COMPUTER LABORATORY 

1620 LOGGING PROGRAM 
KAREN L. ROOPF 
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The organization of the use of the 1620 at Stevens is 
based on a system of problem numbers used in conjunction with 
a logging book # As a matter of convenience, the problem numbers 
start at 1,000. 

Problem numbers are assigned and recorded in a "Problem 
Book/' and time used is logged in a book provided for that 
purpose. 

The installation is run in a completely open-shop manner, 
available time being broken into "Test" and "Production" periods. 

When one uses the computer, he signs on in the log book, 
indicating date, time on, problem number and a code letter 
(see p. 6). At the end of use, one signs off, by indicating 
the time off the computer. 



Logging Program for the 1620 



The purpose of this program was to generate monthly re- 
ports on the use of the computer for its various purposes. 
The program can easily be adapted for use by any installation. 
The code letters and subroutines can be changed to suit vari- 
ous purposes. The following is a general method for adapting 
this program: 

For new code letters: 

Add, after READIN (0515^) two instructions: 



YYYYYY 



XXXXXX 



ZZZZZZ 



CM . L0GLIN-70,XX,10 



B XXXXXX 



XX represents the numerical 
code of the letter 

XXXXXX represents the processing 
subroutine 



Add, in the record area at end of the program: 

DC 5,0 YYYYYY accumulates time used 

for this purpose 

Add, after EOJMSG, 

TP ADD- 5, YYYYYY 

BT ADD,SUBT-5 

TP YYYYYY, ADD- 5 

TF TIMOFF, LOGLIN-72 

BIC HALTI 

B READIN 

Add, in the "constant" areas at end of the program: . 

DAC ... ZZZZZZ represents the title, for 

the report, of this code letter, 
(e.g. Total test time used). - 
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Add, after NEWREP (17272) 

TR REP3-1 * ZZZZZZ-1 

TIM REP3+98.0 
TP REP3+140, SEVENS-^ 
TF REP3+13^, SEVENS- 2 
TD REP5 +1^0 , YY YYYY 
TD REP5+138 , YYYYYY- 1 
TD REPj5+lj5^ .? YYYYYY -2 
TD RE P3 +1 3 2 , YYYYYY » 3 
TD REP3+130 , YYYYYY -4 
WACDREPJ 

Idle time is automatically added in by the program, 
and is totaled and given as part of the final report. 

Since we use the 24-hr. time system, the time adding 
routines were simplified. If work runs over past midnight , the 
time is continued until 1620 Is turned off (i.e. 2:00 A.M. be- 
comes 2600). 

Time is subtracted (time off-time on = time used) in 
the Subroutine labeled SUBT, and added in the ApD Subroutine. 
Time is stored in memory as a 4 digit number - XXYY, where XX 
is the number of hours used and YY is the number of minutes. 

Idle time is added through the use of a variable, 
ttimoff I which has, after an M A n card, the time 1620 is turned 
on, and thereafter, the time the last user got off. With each 
entry, the time in "timoff " is subtracted from the new time on, 
and the difference goes into the idle time accumulator . 
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Each problem number has 8 memory spaces assigned to 
it, starting at 8000, since our problem numbers start at 1000. 
If a different system of problem numbers is used, the program 
should be modified accordingly (e.g. at Table 2 (0^310), the 
problem number is multiplied by 8 and increased by 7 to obtain 
the right address for adding and storing time used). Similarly 
in Table 1 (0^202) the number is multiplied by 8 and increased 
by 3. 

Thus, at Table 1 

No. 1102 becomes address 08823 
and at table 2 

No. 1102 becomes address 08819 



c 
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OPERATING INSTRUCTIONS 

1. Clear memory. (Suggested method: Reset, Insert, 

Type 16 00010 00000, Release, Start, 
Instant Stop, Reset) 

2. Load object deck followed by log book data cards. 

3. Press "Load" button. 

4. Computer will stop with 48 In Op. Register, push Start. 

5. Computer will stop with "Reader no Feed" light on, push 

Reader Start. 

6. Load Problem book data cards. 

7. Push Reader Start and Start. 

8. Push Punch Start. 

9. Computer will stop with "Reader no Feed" light on. 

Push reader start. 

10. Computer prints "Total Report Follows" - Push Start. 

11. Clear all hoppers. 
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NOTES ON OPERATION OF PROGRAM 

A. While Running Log Book Data Cards. 

1. If "Invalid Code Letter" is typed at the console: 

A data card has been entered whose code letter 
is not in the range of the program. The card can be 
bypassed by pushing Start, or can be repunched and 
reentered before pushing Start. 

2. If no message is printed after pushing reader start 
to feed the last two cards into memory: 

The last data card was not a "z" Entry. 
Reset, Insert, type ^900402, Release, Start. 

B. While Running Problem Book Data Cards 

If "Invalid Code Number" is typed at the console: 

A data card, has been entered whose code number 
is not 1, 2 or 3. The card can be bypassed by push- 
ing Start, or can be repunched and reentered before 
pushing Start. 
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CODES NOW IN USE IN LOGGING PROGRAM 

Code Letter Code Number Meaning of Code 

A 01 Time 1620 is turned on. 

D o4 Demonstration time. 

E 05 Educational use time. 

M 13 Machine error time. 

p 16 Production time. 

rp 20 Test time. 

z 26 Time 1620 is turned off. 

PROBLEM CODES NOW IN USE IN LOGGING PROGRAM 

Code Number Code Letter Meaning of Code 

u Unsponsored Research 

1 s Sponsored Research 
n Outside Use 
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FORMAT OF LOG BOOK DATA CARDS 



Col. 1-4 Time On 

Col. 5-8 Time Off 

Col. 9-10 Code Number 

Col. 11-12 Problem Number 

ccl3-80 may be used for numbering purposes 



FORMAT OF PROBLEM BOOK DATA CARDS 



Col. 


1-4 


Problem Number 


Col. 


5-43 


Name of Problem 


Col. 


44 


Record Mark 


Col. 


45-53 


Contract Number, if any 


Col. 


54 


Record Mark 


Col. 


55-57 


Initials of programmer 


Col. 


58 


Record Mark 


Col. 


80 


Problem code number 



cc59-79 may be used for numbering purposes 
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EXAMPLES OF LOG BOOK DATA CARDS 



Card Reads 



Meaning 



09000000010000 
09051010201000 

IO22HO516HO5 
11101215041004 
12501245130000 
13001317051117 

14000000260000 



Computer turned on at 0900 (24-Hour Clock) 

Problem No. 1000 Testing from 0905-1010 

Problem No. 1105 Production from 1022-1105 

Problem No. 1004 Demonstration from 1110-1215 

Machine error time from 1230-1245 

Problem No. 1117 Educational use from 

1300-1317 

Computer turned off at 1400 



EXAMPLES OF PROBLEM BOOK DATA CARDS 



1000TEST PROBLEMS- -FORTRAN SPS MACHINE LANG* 4=AR # 

1001 DATA REDUCTION +DL22-500+SJI4 1 

10020DTSIDE USER... * +KLR+ 2 
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OUTPUT FORMAT 

General Report 

cc 1-4 Problem number 

cc 6-44 Problem name 

cc 46-48 Initials of Programme r 

cc 55-59 Test time 

cc 63-67 Production time 

for problem 

cc 71-75' Total time 

col. 80 Code letter 



Sponsored Research Report 

cc 1-9 Contract number 
cc 47-51 Total time used 



Outside use Report 

cc I-38 Name of user 
cc 47-51 Total time used 



Total Report 
cc 1-49 
cc 66-71 



Category of use 
Total time used 



0845000001 0000 
08500854161 035 
0900090620 1 034 
0907000 0260000 
092 1000001 0000 
092 1 094 1 161 021 
094 1 0000260000 
0957000001 0000 
1000 1010 161030 
1 1 01 02504 1 000 
1 0250000260000 
1 i)3000000 1 0000 
1 0321 042201 030 

1 04 4 1 04916 1 033 

1 05 21 05920 1 034 
1 1 0700G0260000 
130800000 1 C 000 
131 113 1 720 1 007 
1 32 2 1 33020 1 007 
1334 133716 1035 
1 3370000260000 
1430000001 0000 
14301443161021 
1 44300C0260000 
092 1 00000 1 0000 
0926094220 1 020 
09420000260000 
095500000 1 0000 
09561 00 120 1 020 
1 0040000260000 
1 1 0800000 1 0000 
1 108 1 14520 1037 
12001312201 018 
13121354201034 
1354 143020 1000 
1430 15.0520 1 034 
1 509153120 1 020 
1531 16C32C 1 037 
16031618201000 
16 1 81 63020 1 034 
16481710201028 
1715 1750201 028 
1800 1842201 028 
18420000260000 
084800000 1 0000 
0848090616 1021 
09061 00620 1 034 
10101 1 1 1201018 
11111 120201 000 
1 1221 142201034 
1 1421210161 036 
12101240201020 
12451339201028 
13391435201 018 
14351504161 018 
15061530201 034 
15301545201 000 
15451600201037 
1600 1619201 020 
1619 1656161 018 
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16561702201000 
1 7081810201 028 
181 0182520 1037 
18250000260000 
0815000O01 0000 
08190850201 034 
08500908201 020 
0908092020 1 000 
09251021201018 
1 0301 055201 000 
1 0551 1 1 1201 037 
1 1271 141 161032 
1 145121 0201 034 
1210 1234201037 
12340000260000 
131000000 10000 
13101345201034 
134514 1520 1 000 
141 51430201 018 
1430 1450 161 021 
14501508201018 
15101522201034 
1522154520 1037 
15451613201018 
16181632201034 
16321640201 037 
16401725201018 
17251805201037 
18050000260000 
204500000 1 0000 
20452 130201037 
2130220720 1000 
221 7223620 1037 
22360000260000 
1505000001 0000 
1525155020 1003 
16000000260000 
1755000001 0000 
18101900201000 
19450000260000 
0845000001 0000 
0850090020 1 003 
0902090820 1034 
09120000260000 
0955000001 0000 
1 0001017201 038 
1 0221 05820 1 028 
1 1 001 1 19201038 
1 1 19 122620 1 018 
12260000260000 
1300000001 0000 
13021315201038 
13151331201 000 
1 331 1354161 021 
14051415201038 
14151527201018 
15301552131 000 
15520000260000 
1303000001 0000 
13031325201034 



1 325 1 35020 1 021 
135 1 135520 1034 
135614 1020 1000 
1411 1426201 038 
1430 150520 1 039 
15151531201 039 
1 53 1 1 55 1 20 1 000 
155 1 160720 102 1 
1 60716 1 720 1 000 
1617171 1201 018 
1711 174516 1 032 
17491857161 02 1 
19001921 161021 
19452 1020 1000 
2052220020 1 000 
22000000260000 
083000000 1 0000 
083709 1220 1 039 
09 1 20944 1 31 039 
0944095020 1 034 
0951 1 029161 030 
1 0291 106161 021 
1 1271 137131 039 
1 1370000260000 
1 32 300000 1 0000 
1 3280000260000 
084500000 1 0000 
0845085020 1 000 
08501 1 00131 000 
1 1 00 1 1 1 520 1 000 
1 1 151 130201023 
1 1331 14920 1039 
1 1491200201000 
1 2000000260000 
124200000 1 0000 
12421332201023 
13321348201000 
13481453201018 
14531500201000 
15001540201039 
15401548201030 
1558162 1 16 1036 
162 1 163720 1000 
16371745161018 
1 7450000260000 
192 1 000001 0000 
1925203020 1 000 
20302047201 037 
2047220020 1 000 
22000000260000 
084000000 1 0000 
08450919161 030 
0920093520 1 038 
094009481.61 035 
09501 001 161 038 
1 00 1 1 1820 1 000 
10181022201000 
1022103320 1000 
1 0331 1 15201 000 
1 2001220201000 



1 2300000260000 
1 31 0000001 0000 
1320 1347201037 
14231510201034 
15101521 161037 
152 1 1545161 021 
16000000260000 
1605000001 0000 
16081624201038 
16270000260000 
1640000001 0000 
16421656161 036 
16570000260000 
1 030000001 0000 
10351 12520 1034 
1 1450000260000 
1 20500000 1 0000 
12151230201034 
12301250201034 
1250 1315161 034 
1 3300000260000 
0953000001 0000 
09581 106161018 
11131 142201 000 
1 1421252161 018 
12561324201000 
1400 141520 1040 
14201505130000 
15051545201040 
15451619161 018 
1619165220 1038 
16521710201040 
1710 173920 1013 
1 7400000260000 
084500000 1 0000 
085009.17161 021 
09 170955201 000 
09550959161 040 
09591010201000 
1 01 31 024201 000 
1 051 1 120201013 
1 1231 145201 000 
1 2080000260000 
15210000010000 
152 1 1525201 000 
16321642201 023 
16421655201000 
17081840161018 
18400000260000 
21250000010000 
21302135161 040 
21352300201 000 
23000000260000 
0855000001 0000 
0859090620 1000 
0908092620 1000 
09261045201000 
1050 1055201000 
1101 1 106201000 
1 2000000260000 



1 325000001 0000 
1 3271 333161 037 
134 3134820 1000 
1 3481410201023 
1410 1445201000 
14451500 161 021 
1500 15 3020 1000 
15391547201023 
1611 1646201028 
16460000260000 
1 73300000 1 0000 
174 21851 16 1 013 
1 8540000260000 
2 1 OOOOf -00 1 0000 
2 1 002 1 2020 1 000 
2 1 200000260000 
093700000 1 0000 
0942 100220 1023 
1C021018201041 
1 018102720 1042 
1 0371 10820 1041 
1 1251200201028 
1 2070000260000 
1 22400000 1 0000 
1224 124020 102.8 
1 248 1 33020 1 028 
1 3320000260000 
1 5 1 000000 1 0000 
1517 154313102 1 
15431600161 021 
16 15164620 104 3 
1646 174 1201028 
17431830201043 
18380000260000 
095300000 1 0000 
09581034 16 1043 
1 034 1 1 4220 1 028 
1 1 480000260000 
1 326000001 0000 
1324 143920 104 1 
15071512161040 
1 5300000260000 
1655000001 0000 
1701 1743161013 
17430000260000 
2145000001 0000 
21542216201 013 
22162323161 013 
23230000260000 
09 1900000 1 0000 
09231033161038 
1 0331 046201 028 
1 055 1 1 0820 1 028 
1 1 151 141201 013 
11411 146161040 
121 00000260000 
1224000001 0000 
12480000260000 
1 30 1 00000 1 0000 
1630170016 1 037 



COMPUTER 
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1 700 1 71 520 1 01 4 
1 7151 B34161 01 3 
1 8340000260000 
214400C001 0000 
21482212201014 
2226230520 1014 
23050000260000 
0830000001 0000 
08370954 16 1 038 
10101027201014 
1 0301054 16 1038 
1059 1 12920 1000 
11431 150161 037 
1 2 150000260000 
1 250000001 0000 
1 2521 326161 038 
1326140420 1 000 
14241432161037 
1 440 144920 1 046 
1454151 7161 034 
15451638201028 
16400000260000 
08470000C1 0000 
08540858161 034 
090 0000 26 0000 
0940000001 0000 
09421 12201 000 
1 020 1 1 1 3201 028 
11131 143201041 
1 1 43121220 1 000 
1 2 1 80000260000 
124700000 1 0000 
1250 125404 1 000 
12541315201013 
13151420161 013 
1420 1435201 000 
14351456201028 
14561512201041 
151 21527201 014 
15271544201 000 
15441602201 028 
16121621 161037 
16381649201 028 
17021755161013 
17550000260000 
21 1 700000 1 0000 
2 12 1 2 13520 1014 
21552220201 014 
22202223161 040 
22232238201 014 
23050000260000 
09290000010000 
09340947131 000 
1 0301 055201 014 
1 0551 1 17201 041 
11171 14820 1046 
12060000260000 
1248000001 0000 
12501308201 014 
13151325161 025 



1 325140220 1014 
14021414201000 

14 14 1458201037 
1459150420 104 1 
1 5040000260COO 
1516000001 0000 

15 16 1530161 021 
154 1 154720 1014 
16001635201013 
1635 165020 1 037 
1 700 1 70520 1 028 
17321816201028 
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